home *** CD-ROM | disk | FTP | other *** search
- object dlgPrinter: TdlgPrinter
- Left = 683
- Top = 240
- HelpContext = 307
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Print Image'
- ClientHeight = 414
- ClientWidth = 616
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- ShowHint = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Optiongrp: TGroupBox
- Left = 8
- Top = 220
- Width = 305
- Height = 153
- Caption = 'Options'
- TabOrder = 2
- object Label2: TLabel
- Left = 16
- Top = 98
- Width = 68
- Height = 13
- Caption = 'Page Margins:'
- end
- object Label4: TLabel
- Left = 24
- Top = 121
- Width = 72
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Horizontal:'
- end
- object lblPerc1: TLabel
- Left = 156
- Top = 121
- Width = 8
- Height = 13
- Caption = '%'
- end
- object Label7: TLabel
- Left = 168
- Top = 121
- Width = 48
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Vertical:'
- end
- object lblPerc2: TLabel
- Left = 276
- Top = 121
- Width = 8
- Height = 13
- Caption = '%'
- end
- object lblOutputQuality: TLabel
- Left = 16
- Top = 73
- Width = 59
- Height = 13
- Caption = 'Print Quality:'
- end
- object chkAutoOrient: TCheckBox
- Left = 216
- Top = 12
- Width = 81
- Height = 17
- Hint =
- 'If this option is set then Smart Pix will automatically select P' +
- 'ortrait or Landscape printing in order to give you the largest p' +
- 'ossible image'
- Caption = 'Automatically choose best orientation for printing'
- TabOrder = 0
- Visible = False
- OnClick = chkAutoOrientClick
- end
- object chkCentreImage: TCheckBox
- Left = 16
- Top = 23
- Width = 281
- Height = 17
- Hint = 'If checked then the image will be centered within the page'
- Caption = 'Center Image within Page'
- TabOrder = 1
- OnClick = chkCentreImageClick
- end
- object spnHorzBorder: TSpinEdit
- Left = 104
- Top = 116
- Width = 49
- Height = 22
- Hint =
- 'The proportion of the page that will be used as a margin on the ' +
- 'left and right of the page'
- MaxValue = 20
- MinValue = 0
- TabOrder = 4
- Value = 3
- OnChange = chkCentreImageClick
- end
- object spnVertBorder: TSpinEdit
- Left = 224
- Top = 116
- Width = 49
- Height = 22
- Hint =
- 'The proportion of the page that will be used as a margin on the ' +
- 'top and bottom of the page'
- MaxValue = 20
- MinValue = 0
- TabOrder = 5
- Value = 3
- OnChange = chkCentreImageClick
- end
- object chkAddDescription: TCheckBox
- Left = 16
- Top = 48
- Width = 281
- Height = 17
- Hint = 'If checked the filename will be printed above the file'
- Caption = 'Print the filename above the image'
- TabOrder = 2
- end
- object cmbOutputQuality: TComboBox
- Left = 104
- Top = 69
- Width = 145
- Height = 21
- Hint =
- 'Allows you to specify the output quality in order to optimize pr' +
- 'inting quality and speed'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- end
- end
- object Cancelbtn: TsitBitBtn
- Left = 525
- Top = 380
- Width = 83
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 6
- Images = frmMain.ImageList1
- ImageIndex = 1
- end
- object OKbtn: TsitBitBtn
- Left = 437
- Top = 380
- Width = 83
- Height = 25
- Caption = 'OK'
- Default = True
- TabOrder = 5
- OnClick = OKbtnClick
- Images = frmMain.ImageList1
- ImageIndex = 0
- end
- object grpPrinter: TGroupBox
- Left = 323
- Top = 8
- Width = 286
- Height = 89
- Caption = 'Printer'
- TabOrder = 3
- object NumLabel: TLabel
- Left = 16
- Top = 59
- Width = 86
- Height = 13
- Caption = 'Number of copies:'
- end
- object PrintersCombo: TComboBox
- Left = 16
- Top = 21
- Width = 257
- Height = 24
- Hint = 'Allows you to select which printer this image will be printed to'
- Style = csOwnerDrawFixed
- ItemHeight = 18
- TabOrder = 0
- OnChange = PrintersComboChange
- OnDrawItem = PrintersComboDrawItem
- end
- object btnSetup: TsitBitBtn
- Left = 190
- Top = 54
- Width = 83
- Height = 25
- Hint = 'Allows you to change the settings for the selected printer'
- Caption = 'Setup..'
- TabOrder = 2
- OnClick = btnSetupClick
- Images = frmMain.ilstButtons16
- ImageIndex = 53
- end
- object spnCopies: TSpinEdit
- Left = 107
- Top = 54
- Width = 41
- Height = 22
- Hint = 'The number of times the image will be printed'
- MaxValue = 999
- MinValue = 1
- TabOrder = 1
- Value = 1
- end
- end
- object grpPrintWhat: TGroupBox
- Left = 8
- Top = 8
- Width = 305
- Height = 89
- Caption = 'What would you like to print?'
- TabOrder = 0
- object rdbPrintSelected: TRadioButton
- Left = 16
- Top = 25
- Width = 249
- Height = 17
- Hint =
- 'If this is selected then the image currently displayed in the ma' +
- 'in image window will be printed'
- Caption = 'Print the selected image(s)'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = PrintTypeChangeClick
- end
- object rdbPrintAllSlideshow: TRadioButton
- Left = 16
- Top = 53
- Width = 273
- Height = 17
- Caption = 'Print the entire slideshow'
- TabOrder = 1
- OnClick = PrintTypeChangeClick
- end
- end
- object grpPreview: TGroupBox
- Left = 323
- Top = 103
- Width = 286
- Height = 270
- Caption = 'Print Preview'
- TabOrder = 4
- object lblPrintSize: TLabel
- Left = 14
- Top = 247
- Width = 51
- Height = 13
- Caption = 'lblPrintSize'
- end
- object chkpreview: TCheckBox
- Left = 16
- Top = 19
- Width = 193
- Height = 17
- Caption = 'Show Preview'
- TabOrder = 0
- OnClick = chkpreviewClick
- end
- object pnlPreview: TPanel
- Left = 40
- Top = 42
- Width = 209
- Height = 193
- BevelOuter = bvNone
- TabOrder = 1
- object pnlpage: TPanel
- Left = 24
- Top = 0
- Width = 137
- Height = 175
- Color = clWhite
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 0
- object ImageEnView1: TImage
- Left = 8
- Top = 8
- Width = 97
- Height = 121
- Center = True
- Picture.Data = {07544269746D617000000000}
- Stretch = True
- Visible = False
- end
- end
- end
- end
- object grpPrintSize: TGroupBox
- Left = 8
- Top = 103
- Width = 305
- Height = 111
- Caption = 'Print Size'
- TabOrder = 1
- object lblPrintX: TLabel
- Left = 17
- Top = 79
- Width = 73
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'lblPrintX'
- end
- object lblPrintY: TLabel
- Left = 153
- Top = 79
- Width = 65
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'lblPrintY'
- end
- object lblPrintToSize: TLabel
- Left = 16
- Top = 21
- Width = 198
- Height = 13
- Caption = 'What size do you want to print the image?'
- end
- object cmbPrintSize: TComboBox
- Left = 16
- Top = 42
- Width = 257
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = PrintTypeChangeClick
- Items.Strings = (
- 'Print to full page size'
- 'Print to photo size: 4 x 6" (10 x 15 cm)'
- 'Print to photo size: 6 x 8" (15 x 20 cm)'
- 'Print to photo size: 8 x 10" (20 x 25 cm)'
- 'Print to Custom Size')
- end
- object spnPrintX: TSpinEdit
- Left = 96
- Top = 74
- Width = 49
- Height = 22
- MaxValue = 20
- MinValue = 1
- TabOrder = 1
- Value = 6
- OnChange = chkCentreImageClick
- end
- object spnPrintY: TSpinEdit
- Left = 224
- Top = 74
- Width = 49
- Height = 22
- MaxValue = 20
- MinValue = 1
- TabOrder = 2
- Value = 6
- OnChange = chkCentreImageClick
- end
- end
- object PrinterSetupDlg: TPrinterSetupDialog
- Left = 248
- Top = 64
- end
- object ImageEnProc1: TImageEnProc
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- AttachedTImage = ImageEnView1
- Left = 280
- Top = 40
- end
- object ImageEnIO1: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- AttachedTImage = ImageEnView1
- Left = 216
- Top = 16
- end
- end
-